unit RequestItems;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RzStatus, RzPanel, Grids, BaseGrid, AdvGrid, DBAdvGrd, RzRadChk,
  StdCtrls, Mask, RzEdit, ComCtrls, RzDTP, RzSpnEdt, RzTabs, RzButton,
  ExtCtrls, DB, ADODB;

type
  TfrmItemRequest = class(TForm)
    pnlMainTop: TRzPanel;
    btnMainEvaluation: TRzBitBtn;
    btnMainClose: TRzBitBtn;
    RzPanel1: TRzPanel;
    btnMainViewSubjects: TRzBitBtn;
    RzPanel2: TRzPanel;
    btnDoneEvaluation: TRzBitBtn;
    pnlMainClient: TRzPanel;
    MainPageEmpEval: TRzPageControl;
    TabSheet1: TRzTabSheet;
    RzPanel3: TRzPanel;
    RzPanel4: TRzPanel;
    spinEmpSubject: TRzSpinButtons;
    edtActiveForEvaluation: TRzEdit;
    TabSheet2: TRzTabSheet;
    RzPanel35: TRzPanel;
    RzPanel36: TRzPanel;
    btnSubjectRemove: TRzBitBtn;
    btnSubjectAdd: TRzBitBtn;
    btnSubjectSearch: TRzBitBtn;
    edtSearchSubject: TRzEdit;
    spineditSubject: TRzSpinButtons;
    edtCurrentNameEmp: TRzEdit;
    cbMainFilterNavbar: TRzCheckBox;
    dbgridEvaluationSummary: TDBAdvStringGrid;
    pnlMainBottom: TRzPanel;
    RzStatusBar1: TRzStatusBar;
    RzClockStatus1: TRzClockStatus;
    rzStatusMainEvaluation: TRzStatusPane;
    DBAdvStringGrid1: TDBAdvStringGrid;
    RzEdit1: TRzEdit;
    RzBitBtn1: TRzBitBtn;
    RzBitBtn2: TRzBitBtn;
    RzBitBtn3: TRzBitBtn;
    ADOConnection1: TADOConnection;
    procedure btnMainCloseClick(Sender: TObject);
    procedure RzBitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmItemRequest: TfrmItemRequest;

implementation

uses RequestEntry;

{$R *.dfm}

procedure TfrmItemRequest.btnMainCloseClick(Sender: TObject);
begin
     close;
end;

procedure TfrmItemRequest.RzBitBtn2Click(Sender: TObject);
var
   AFrmTemp : TfrmRequestEntry;
begin
  AFrmTemp:= TfrmRequestEntry.Create(nil);
  AFrmTemp.ADOConnection1:=ADOConnection1;
  AFrmTemp.Caption := 'Request Item';
//  AFrmTemp.MainPageEmpEval.HideAllTabs;
  AFrmTemp.ShowModal;
  FreeAndNil(AFrmTemp);;
end;

end.
